module c_func_wrap

  implicit none

  interface
    subroutine get_exe_dir(path, path_size) bind(c, name='get_exe_dir')
      use iso_c_binding
      integer(c_int), intent(in), value :: path_size
      character(c_char), intent(in) :: path(path_size)
    end subroutine get_exe_dir
  end interface

end module c_func_wrap
